/* GUI CONVERTED from rcpma.p (converter v1.76) Fri May  3 13:21:20 2002 */
/* rcpma.p - Release Management Customer Schedules                            */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                        */
/* All rights reserved worldwide.  This is an unpublished work.               */
/* $Revision: 1.10.1.5 $                                                      */
/*V8:ConvertMode=Maintenance                                                  */
/* REVISION: 7.3      LAST MODIFIED: 09/22/93   BY: WUG *GF25*                */
/* REVISION: 7.4      LAST MODIFIED: 09/22/93   BY: WUG *H140*                */
/* REVISION: 7.4      LAST MODIFIED: 05/13/94   BY: WUG *H369*                */
/* REVISION: 8.5      LAST MODIFIED: 07/17/95   BY: gwm *J049*                */
/* REVISION: 8.5      LAST MODIFIED: 04/23/96   BY: gwm *J0K1*                */
/* REVISION: 8.5      LAST MODIFIED: 04/24/96   BY: gwm *J0K9*                */
/* REVISION: 8.5      LAST MODIFIED: 06/11/96   BY: rxm *G1XQ*                */
/* REVISION: 8.6      LAST MODIFIED: 08/08/96   BY: *K003* Vinay Nayak-Sujir  */
/* REVISION: 8.6      LAST MODIFIED: 02/21/97   BY: *J1JB* Patrick Rowan      */
/* REVISION: 8.6      LAST MODIFIED: 04/09/97   BY: *K08N* Steve Goeke        */
/* REVISION: 8.6E     LAST MODIFIED: 02/23/98   BY: *L007* A. Rahane          */
/* REVISION: 8.6E     LAST MODIFIED: 05/20/98   BY: *K1Q4* Alfred Tan         */
/* REVISION: 8.6E     LAST MODIFIED: 10/04/98   BY: *J314* Alfred Tan         */
/* REVISION: 8.6E     LAST MODIFIED: 10/12/98   BY: *J321* Surekha Joshi      */
/* REVISION: 8.6E     LAST MODIFIED: 08/12/99   BY: *J3KJ* Bengt Johansson    */
/* REVISION: 9.1      LAST MODIFIED: 07/29/00   BY: *N0GV* Mudit Mehta        */
/* Old ECO marker removed, but no ECO header exists *F0PN*                    */
/* Revision: 1.10.1.3     BY: Jean Miller          DATE: 03/22/01 ECO: *P008* */
/* Revision: 1.10.1.4     BY: Sandeep P.           DATE: 06/29/01 ECO: *M1CR* */
/* $Revision: 1.10.1.5 $    BY: Katie Hilbert        DATE: 04/15/02 ECO: *P03J*    */
/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/

/* CREATE CONTROL FILE RECORDS */

define shared variable global_user_lang_dir like lng_mstr.lng_dir.

{gplabel.i} /* EXTERNAL LABEL INCLUDE */

find mfc_ctrl where mfc_field = "rcc_next_ctnr" no-lock no-error.

if not available mfc_ctrl then do:
   create mfc_ctrl.
   assign
      mfc_label = getTermLabel("NEXT_CONTAINER_ID",24)
      mfc_field = "rcc_next_ctnr"
      mfc_seq = 3
      mfc_module = "rc"
      mfc_type = "i".
end.

find mfc_ctrl where mfc_field = "rcc_mbol_format" no-lock no-error.

if not available mfc_ctrl then do:
   create mfc_ctrl.
   assign
      mfc_label = getTermLabel("MASTER_BILL_FORMAT",24)
      mfc_field = "rcc_mbol_format"
      mfc_seq = 15
      mfc_module = "rc"
      mfc_type = "c".
end.

find mfc_ctrl where mfc_field = "rcc_auto_post" no-lock no-error.

if not available mfc_ctrl then do:
   create mfc_ctrl.
   assign
      mfc_label = getTermLabel("AUTO_INVOICE_POST",24)
      mfc_field = "rcc_auto_post"
      mfc_seq = 4
      mfc_module = "rc"
      mfc_type = "l"
      mfc_logical = yes.
end.

find mfc_ctrl where mfc_field = "rcc_use_shipper" no-lock no-error.

if not available mfc_ctrl then do:
   create mfc_ctrl.
   assign
      mfc_label = getTermLabel("USE_SHIPPER_NBR_FOR_INV_NBR",24)
      mfc_field = "rcc_use_shipper"
      mfc_seq = 5
      mfc_module = "rc"
      mfc_type = "l"
      mfc_logical = yes.
end.

find mfc_ctrl where mfc_field = "rcc_consolidate" no-lock no-error.

if not available mfc_ctrl then do:
   create mfc_ctrl.
   assign
      mfc_label = getTermLabel("CONSOLIDATE_INVOICES",24)
      mfc_field = "rcc_consolidate"
      mfc_seq = 6
      mfc_module = "rc"
      mfc_type = "l"
      mfc_logical = yes.
end.

find mfc_ctrl where mfc_field = "rcc_auto_inv" no-lock no-error.

if not available mfc_ctrl then do:
   create mfc_ctrl.
   assign
      mfc_label = getTermLabel("PRINT_INVOICE",23) + " "
      mfc_field = "rcc_auto_inv"
      mfc_seq = 7
      mfc_module = "rc"
      mfc_type = "l"
      mfc_logical = no.
end.

find mfc_ctrl where mfc_field = "rcc_ship_lines"
   no-lock no-error.

if not available mfc_ctrl then do:

   create mfc_ctrl.
   assign
      mfc_label = getTermLabel("MAX_LINES_ON_A_SHIPPER",24)
      mfc_field = "rcc_ship_lines"
      mfc_seq = 10
      mfc_module = "rc"
      mfc_type = "i"
      mfc_integer = 0.
end.

/* ADD DEFAULT BAR LABEL TEMPLATE CONTROL RECORDS */
/* The following 3 control records are used to hold default
 * template filenames for printing container labels.
 * (7.6.5.8 - Shipping Label Print)  These default
 * templates are used for containers that are not attached to
 * shippers, and therefore have no ship-to/customer information.
 * Containers created thru the Container Workbench are not required
 * to be pre-assigned to customers and need these default
 * templates to print labels.  */
find mfc_ctrl where mfc_field = "rcc_barlbl_mixed_fn"
no-lock no-error.

if not available mfc_ctrl then do:
   create mfc_ctrl.
   assign
      mfc_label = getTermLabel("MIXED_LOAD_LABEL",24)
      mfc_field = "rcc_barlbl_mixed_fn"
      mfc_seq = 12
      mfc_module = "rc"
      mfc_type = "c"
      mfc_logical = no.
end.

find mfc_ctrl where mfc_field = "rcc_barlbl_master_fn"
no-lock no-error.

if not available mfc_ctrl then do:
   create mfc_ctrl.
   assign
      mfc_label = getTermLabel("MASTER_LOAD_LABEL",24)
      mfc_field = "rcc_barlbl_master_fn"
      mfc_seq = 13
      mfc_module = "rc"
      mfc_type = "c"
      mfc_logical = no.
end.

find mfc_ctrl where mfc_field = "rcc_barlbl_single_fn"
no-lock no-error.

if not available mfc_ctrl then do:
   create mfc_ctrl.
   assign
      mfc_label = getTermLabel("SINGLE_LOAD_LABEL",24)
      mfc_field = "rcc_barlbl_single_fn"
      mfc_seq = 14
      mfc_module = "rc"
      mfc_type = "c"
      mfc_logical = no.
end.

if not can-find (mfc_ctrl where mfc_field = "rcc_ship_plan_pcr")
then do:
   create mfc_ctrl.
   assign
      mfc_label   = getTermLabel("USE_SHIP/PLAN_PCR",24)
      mfc_field   = "rcc_ship_plan_pcr"
      mfc_seq     = 16
      mfc_module  = "rc"
      mfc_type    = "l"
      mfc_logical = no.
end. /* IF NOT CAN-FIND */

if not can-find (mfc_ctrl where mfc_field = "shc_sum_tr_item")
then do:
   create mfc_ctrl.
   assign
      mfc_label   = getTermLabel("SUM_HISTORY_FOR_ITEMS",24)
      mfc_field   = "shc_sum_tr_item"
      mfc_seq     = 17
      mfc_module  = "rc"
      mfc_type    = "l"
      mfc_logical = no.
end. /* IF NOT CAN-FIND */

if not can-find (mfc_ctrl where mfc_field = "shc_sum_tr_cont")
then do:
   create mfc_ctrl.
   assign
      mfc_label   = getTermLabel("SUM_HISTORY_FOR_CONTAINERS",24)
      mfc_field   = "shc_sum_tr_cont"
      mfc_seq     = 18
      mfc_module  = "rc"
      mfc_type    = "l"
      mfc_logical = no.
end. /* IF NOT CAN-FIND */

if not can-find (mfc_ctrl
                 where mfc_field = "rcc_cum_peg")
then do:
   create mfc_ctrl.
   assign
      mfc_label   = getTermLabel("AUTOMATIC_CUM_PEGGING",28)
      mfc_field   = "rcc_cum_peg"
      mfc_seq     = 19
      mfc_module  = "rc"
      mfc_type    = "l"
      mfc_logical = yes.
end. /* IF NOT CAN-FIND */

/* THIS FIELD INDICATES THE DEFAULT FOR THE SIMILARLY NAMED FIELD
   IN THE SALES ORDER HEADER TABLE. */
if not can-find (mfc_ctrl where mfc_field = "rcc_custref_val")
then do:
   create mfc_ctrl.

   assign
      mfc_label   = getTermLabel("CUSTOMER_REFERENCE_IS_CUSTOMER_ITEM",40)
      mfc_field   = "rcc_custref_val"
      mfc_seq     = 20
      mfc_module  = "rc"
      mfc_type    = "l"
      mfc_logical = no.
end. /* IF NOT CAN-FIND */
